﻿Public Class Reports

	Dim Tarih As New Date(2010, 12, 1)
	Dim Month As String

	Sub New()
		InitializeComponent()
		ToolBar.Renderer = New FirefoxRenderer
		Document.ToolBar.Renderer = New FirefoxRenderer
		FirefoxToolstrip.ApplyProperties(Document.ToolBar)
		Document.EmptyMessage = "Raporu görüntülemek için rapor türünü ve dönemini seçin."
	End Sub

	Sub InitializeReport(ByVal Title As String, ByVal TabloAdi As String)
		Document.Landscape = True
		Document.Clear()
		Document.HasBorders = True
		Document.AddSection()
		Document.AddTitle("<b>" & Title)
		Document.AddTable("6l;1c;1c")
		Document.AddRow("<b><rs=2>ÇALIŞMA DAİRESİ MÜDÜRLÜĞÜ, " & Choose(Kullanici.TBirim, "LEFKOŞA", "GİRNE") & " BÖLGE AMİRLİĞİ/BÜROSU", "<b>TABLO NO.", "<b>" & TabloAdi)
		Document.AddRow("<b>AY/YIL", "<b>" & Tarih.ToString("MM/yyyy"))
	End Sub

	Private Sub BtnTablo_DropDownItemClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles BtnTablo.DropDownItemClicked
		Rapor = e.ClickedItem.Text
		BtnTablo.Text = Rapor
		ShowReport()
	End Sub

	Private Sub BtnDonem_DropDownOpening(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnDonem.DropDownOpening
		BtnDonem.DropDownItems.Clear()
		Dim Rs = Service.Aylar(Kullanici.TBirim)
		Do Until Rs.EOF
			If Not IsDBNull(Rs(0)) Then BtnDonem.DropDownItems.Add(Mid(Rs(0), 1, 4) & "/" & Mid(Rs(0), 5, 2) & " (" & Rs(1) & " adet)")
			Rs.MoveNext()
		Loop
	End Sub

	Dim RaporDonem As String = ""
	Dim Rapor As String = ""

	Private Sub BtnDonem_DropDownItemClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles BtnDonem.DropDownItemClicked
		RaporDonem = Mid(e.ClickedItem.Text, 1, 7)
		BtnDonem.Text = RaporDonem
		ShowReport()
	End Sub

	Function RsTablo(Tablo As String, Tarih As Date) As Recordset
		Return OpenSQL("exec tablo" & Tablo & " @tarih,@birim", Tarih, Kullanici.TBirim)
	End Function

	Private Sub ShowReport()
		If Rapor = "" Then Return
		If RaporDonem = "" Then Return
		Tarih = RaporDonem & "/01"
		Dim Rs = RsTablo(Rapor.Replace("Tablo ", ""), Tarih)
		Select Case Rapor
			Case "Tablo 2"
				InitializeReport("KAYITLI AKTİF İŞSİZLERİN MESLEK GRUPLARI VE CİNSİYETE GÖRE AY İÇİNDEKİ HAREKETLİLİĞİ/nGENEL GÖRÜNÜM TABLOSU", "2")
				Document.AddTable("2;8l;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n")
				Document.AddHeader("<b><rs=3>Kod", "<b><rs=3>Meslek Grubu", "<b><rs=2><cs=3><c>Geçen ay sonu itibariyle iş bekleyenler", "<b><cs=9><c>Ay içinde", "<b><rs=2><cs=3><c>Ay sonu itibariyle iş bekleyenler")
				Document.AddHeader("<b><cs=3><c>İş İsteğiyle Müracaatlar", "<b><cs=3><c>İşe Yerleştirilenler", "<b><cs=3><c>Kayıttan Düşenler")
				Document.AddHeader("<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K")
				Do Until Rs.EOF
					If Len(Rs("kod")) = 1 Then
						Document.AddRow("<cs=2><b>" & Rs("adi"),
						  "<b>" & Rs("gat"), "<b>" & Rs("gae"), "<b>" & Rs("gak"), "<b>" & Rs("ait"), "<b>" & Rs("aie"), "<b>" & Rs("aik"),
						  "<b>" & 0, "<b>" & 0, "<b>" & 0,
						  "<b>" & Rs("kdt"), "<b>" & Rs("kde"), "<b>" & Rs("kdk"), "<b>" & Rs("ast"), "<b>" & Rs("ase"), "<b>" & Rs("ask"))
					Else
						Document.AddRow(Rs("kod"), Rs("adi"),
						  Rs("gat"), Rs("gae"), Rs("gak"), Rs("ait"), Rs("aie"), Rs("aik"),
						  0, 0, 0,
						  Rs("kdt"), Rs("kde"), Rs("kdk"), Rs("ast"), Rs("ase"), Rs("ask"))
					End If
					Rs.MoveNext()
				Loop
				Document.AddRow("<b><cs=2>GENEL TOPLAM",
				  "<b>" & Rs.Sum("gat", "len(kod)>1"), "<b>" & Rs.Sum("gae", "len(kod)>1"), "<b>" & Rs.Sum("gak", "len(kod)>1"), "<b>" & Rs.Sum("ait", "len(kod)>1"), "<b>" & Rs.Sum("aie", "len(kod)>1"), "<b>" & Rs.Sum("aik", "len(kod)>1"),
				  "<b>" & 0, "<b>" & 0, "<b>" & 0,
				  "<b>" & Rs.Sum("kdt", "len(kod)>1"), "<b>" & Rs.Sum("kde", "len(kod)>1"), "<b>" & Rs.Sum("kdk", "len(kod)>1"), "<b>" & Rs.Sum("ast", "len(kod)>1"), "<b>" & Rs.Sum("ase", "len(kod)>1"), "<b>" & Rs.Sum("ask", "len(kod)>1"))
				Document.Display()
			Case "Tablo 2b"
				InitializeReport("<b>KAYITLI İŞSİZ FAKÜLTE VE YÜKSEK OKUL MEZUNLARININ GENEL GÖRÜNÜM TABLOSU/n(Mezuniyet Bölümlerine ve Cinsiyete Göre)", "2b")
				Document.AddTable("1;9l;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n")
				Document.AddHeader("<b><rs=3>Kod", "<b><rs=3>Meslek Grubu", "<b><rs=2><cs=3><c>Geçen ay sonu itibariyle iş bekleyenler", "<b><cs=9><c>Ay içinde", "<b><rs=2><cs=3><c>Ay sonu itibariyle iş bekleyenler")
				Document.AddHeader("<b><cs=3><c>İş İsteğiyle Müracaatlar", "<b><cs=3><c>İşe Yerleştirilenler", "<b><cs=3><c>Kayıttan Düşenler")
				Document.AddHeader("<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K")
				Do Until Rs.EOF
					Document.AddRow("<b>" & Rs("kod"), "<b>" & Rs("adi"),
					Rs("gat"), Rs("gae"), Rs("gak"), Rs("ait"), Rs("aie"), Rs("aik"),
					0, 0, 0,
					Rs("kdt"), Rs("kde"), Rs("kdk"), Rs("ast"), Rs("ase"), Rs("ask"))
					Rs.MoveNext()
				Loop
				Document.AddRow("<b><cs=2>GENEL TOPLAM",
				  "<b>" & Rs.Sum("gat"), "<b>" & Rs.Sum("gae"), "<b>" & Rs.Sum("gak"), "<b>" & Rs.Sum("ait"), "<b>" & Rs.Sum("aie"), "<b>" & Rs.Sum("aik"),
				  "<b>" & 0, "<b>" & 0, "<b>" & 0,
				  "<b>" & Rs.Sum("kdt"), "<b>" & Rs.Sum("kde"), "<b>" & Rs.Sum("kdk"), "<b>" & Rs.Sum("ast"), "<b>" & Rs.Sum("ase"), "<b>" & Rs.Sum("ask"))
				Document.Display()
			Case "Tablo 3"
				InitializeReport("KAYITLI AKTİF İŞSİZLERİN BEKLEME SÜRELERİNE GÖRE DÖKÜMÜ/n(Ana Meslek Grupları ve Cinsiyete Göre)", "3")
				Document.AddTable("1;10l;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n")
				Document.AddHeader("<b><rs=2>Kod", "<b><rs=2>Meslek Grubu", "<b><cs=3><c>1 - 15 Gün", "<b><cs=3><c>16 - 30 Gün", "<b><cs=3><c>31 - 60 Gün", "<b><cs=3><c>61'den Fazla", "<b><cs=3><c>TOPLAM")
				Document.AddHeader("<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K")
				Do Until Rs.EOF
					Document.AddRow("<b>" & Rs("kod"), "<b>" & Rs("adi"),
					Rs("t15"), Rs("e15"), Rs("k15"), Rs("t30"), Rs("e30"), Rs("k30"),
					Rs("t60"), Rs("e60"), Rs("k60"), Rs("t61"), Rs("e61"), Rs("k61"),
					Rs("tt"), Rs("et"), Rs("kt"))
					Rs.MoveNext()
				Loop
				Document.AddRow("<b><cs=2>GENEL TOPLAM",
				  "<b>" & Rs.Sum("t15"), "<b>" & Rs.Sum("e15"), "<b>" & Rs.Sum("k15"), "<b>" & Rs.Sum("t30"), "<b>" & Rs.Sum("e30"), "<b>" & Rs.Sum("k30"),
				  "<b>" & Rs.Sum("t60"), "<b>" & Rs.Sum("e60"), "<b>" & Rs.Sum("k60"), "<b>" & Rs.Sum("t61"), "<b>" & Rs.Sum("e61"), "<b>" & Rs.Sum("k61"),
				  "<b>" & Rs.Sum("tt"), "<b>" & Rs.Sum("et"), "<b>" & Rs.Sum("kt"))
				Document.Display()
			Case "Tablo 4"
				InitializeReport("AY SONU İTİBARIYLE KAYITLI AKTİF İŞSİZLERİN YAŞ GRUPLARINA GÖRE DÖKÜMÜ/n(Ana Meslek Grupları ve Cinsiyete Göre)", "4")
				Document.AddTable("1;10l;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n")
				Document.AddHeader("<b><rs=2>Kod", "<b><rs=2>Meslek Grubu", "<b><cs=3><c>19 Yaşa Kadar", "<b><cs=3><c>20 - 29 Yaş", "<b><cs=3><c>30 - 39 Yaş", "<b><cs=3><c>40 - 49 Yaş", "<b><cs=3><c>50 - 59 Yaş", "<b><cs=3><c>60 Yaş ve Yukarı", "<b><cs=3><c>TOPLAM")
				Document.AddHeader("<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K")
				Do Until Rs.EOF
					Document.AddRow("<b>" & Rs("kod"), "<b>" & Rs("adi"),
					Rs("t19"), Rs("e19"), Rs("k19"), Rs("t29"), Rs("e29"), Rs("k29"),
					Rs("t39"), Rs("e39"), Rs("k39"), Rs("t49"), Rs("e49"), Rs("k49"),
					Rs("t59"), Rs("e59"), Rs("k59"), Rs("t99"), Rs("e99"), Rs("k99"),
					Rs("t"), Rs("et"), Rs("kt"))
					Rs.MoveNext()
				Loop
				Document.AddRow("<b><cs=2>GENEL TOPLAM",
				  "<b>" & Rs.Sum("t19"), "<b>" & Rs.Sum("e19"), "<b>" & Rs.Sum("k19"), "<b>" & Rs.Sum("t29"), "<b>" & Rs.Sum("e29"), "<b>" & Rs.Sum("k29"),
				  "<b>" & Rs.Sum("t39"), "<b>" & Rs.Sum("e39"), "<b>" & Rs.Sum("k39"), "<b>" & Rs.Sum("t49"), "<b>" & Rs.Sum("e49"), "<b>" & Rs.Sum("k49"),
				  "<b>" & Rs.Sum("t59"), "<b>" & Rs.Sum("e59"), "<b>" & Rs.Sum("k59"), "<b>" & Rs.Sum("t99"), "<b>" & Rs.Sum("e99"), "<b>" & Rs.Sum("k99"),
				  "<b>" & Rs.Sum("t"), "<b>" & Rs.Sum("et"), "<b>" & Rs.Sum("kt"))
				Document.Display()
			Case "Tablo 5"
				InitializeReport("KAYITLI İŞSİZLERİN GENEL GÖRÜNÜM TABLOSU/n(Öğrenim Durumu ve Cinsiyete Göre)", "5")
				Document.AddTable("1;9l;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n")
				Document.AddHeader("<b><rs=3>Kod", "<b><rs=3>Meslek Grubu", "<b><rs=2><cs=3><c>Geçen ay sonu itibariyle iş bekleyenler", "<b><cs=9><c>Ay içinde", "<b><rs=2><cs=3><c>Ay sonu itibariyle iş bekleyenler")
				Document.AddHeader("<b><cs=3><c>İş İsteğiyle Müracaatlar", "<b><cs=3><c>İşe Yerleştirilenler", "<b><cs=3><c>Kayıttan Düşenler")
				Document.AddHeader("<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K")
				Do Until Rs.EOF
					Document.AddRow("<b>" & Rs("sira"), "<b>" & Rs("adi"),
					Rs("gat"), Rs("gae"), Rs("gak"), Rs("ait"), Rs("aie"), Rs("aik"),
					0, 0, 0,
					Rs("kdt"), Rs("kde"), Rs("kdk"), Rs("ast"), Rs("ase"), Rs("ask"))
					Rs.MoveNext()
				Loop
				Document.AddRow("<b><cs=2>GENEL TOPLAM",
				  "<b>" & Rs.Sum("gat"), "<b>" & Rs.Sum("gae"), "<b>" & Rs.Sum("gak"), "<b>" & Rs.Sum("ait"), "<b>" & Rs.Sum("aie"), "<b>" & Rs.Sum("aik"),
				  "<b>" & 0, "<b>" & 0, "<b>" & 0,
				  "<b>" & Rs.Sum("kdt"), "<b>" & Rs.Sum("kde"), "<b>" & Rs.Sum("kdk"), "<b>" & Rs.Sum("ast"), "<b>" & Rs.Sum("ase"), "<b>" & Rs.Sum("ask"))
				Document.Display()
			Case "Tablo 6"
				InitializeReport("AY SONU İTİBARIYLA KAYITLI AKTİF İŞSİZLERİN ÖĞRENİM DURUMUNA GÖRE DAĞILIMI/n(Ana Meslek Grupları ve Cinsiyete Göre)", "6")
				Document.AddTable("1;6l;1c;2n;2n;2n;2n;2n;2n;2n;2n;2n;2n;2n")
				Document.AddHeader("<b>Kod", "<cs=2><b>Meslek Grubu", "<b><c>Okur-Yazar Değil", "<b><c>Diplomasız Okur-Yazar", "<b><c>İlkokul Mezunu", "<b><c>Ortaokul Mezunu", "<b><c>Lise-Klasik Kolej Mezunu", "<b><c>Meslek Lisesi Mezunu", "<b><c>Pratik Sanat Ok. Mez.", "<b><c>Meslek Yüksek Ok. Mez.", "<b><c>Fakülte-Akademi Mezunu", "<b><c>Yüksek Lisans Mezunu", "<b><c>TOPLAM")
				Do Until Rs.EOF
					Document.AddRow("<b><rs=2>" & Rs("kod"), "<b><rs=2>" & Rs("adi"), "<b>E", Rs("ae"), Rs("be"), Rs("ce"), Rs("de"), Rs("ee"), Rs("fe"), Rs("ge"), Rs("ıe"), Rs("ie"), Rs("je"), Rs("te"))
					Document.AddRow("<b>K", Rs("ak"), Rs("bk"), Rs("ck"), Rs("dk"), Rs("ek"), Rs("fk"), Rs("gk"), Rs("ık"), Rs("ik"), Rs("jk"), Rs("tk"))
					Rs.MoveNext()
				Loop
				Document.AddRow("<b><rs=2><cs=2>GENEL TOPLAM", "<b>E", "<b>" & Rs.Sum("ae"), "<b>" & Rs.Sum("be"), "<b>" & Rs.Sum("ce"), "<b>" & Rs.Sum("de"), "<b>" & Rs.Sum("ee"), "<b>" & Rs.Sum("fe"), "<b>" & Rs.Sum("ge"), "<b>" & Rs.Sum("ıe"), "<b>" & Rs.Sum("ie"), "<b>" & Rs.Sum("je"), "<b>" & Rs.Sum("te"))
				Document.AddRow("<b>K", "<b>" & Rs.Sum("ak"), "<b>" & Rs.Sum("bk"), "<b>" & Rs.Sum("ck"), "<b>" & Rs.Sum("dk"), "<b>" & Rs.Sum("ek"), "<b>" & Rs.Sum("fk"), "<b>" & Rs.Sum("gk"), "<b>" & Rs.Sum("ık"), "<b>" & Rs.Sum("ik"), "<b>" & Rs.Sum("jk"), "<b>" & Rs.Sum("tk"))
				Document.Display()
			Case "Tablo 7"
				InitializeReport("KAYITLI İŞSİZ FAKÜLTE VE YÜKSEK OKUL MEZUNLARININ GENEL GÖRÜNÜM TABLOSU/n(Ekonomik Faaliyetler Ana Gruplarına ve Cinsiyete Göre)", "7")
				Document.AddTable("2;8l;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n")
				Document.AddHeader("<b><rs=3>Kod", "<b><rs=3>Meslek Grubu", "<b><rs=2><cs=3><c>Geçen ay sonu itibariyle iş bekleyenler", "<b><cs=9><c>Ay içinde", "<b><rs=2><cs=3><c>Ay sonu itibariyle iş bekleyenler")
				Document.AddHeader("<b><cs=3><c>İş İsteğiyle Müracaatlar", "<b><cs=3><c>İşe Yerleştirilenler", "<b><cs=3><c>Kayıttan Düşenler")
				Document.AddHeader("<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K")
				Do Until Rs.EOF
					If Len(Rs("kod")) = 1 Then
						Document.AddRow("<cs=2><b>" & Rs("adi"),
						  "<b>" & Rs("gat"), "<b>" & Rs("gae"), "<b>" & Rs("gak"), "<b>" & Rs("ait"), "<b>" & Rs("aie"), "<b>" & Rs("aik"),
						  "<b>" & 0, "<b>" & 0, "<b>" & 0,
						  "<b>" & Rs("kdt"), "<b>" & Rs("kde"), "<b>" & Rs("kdk"), "<b>" & Rs("ast"), "<b>" & Rs("ase"), "<b>" & Rs("ask"))
					Else
						Document.AddRow(Rs("kod"), Rs("adi"),
						  Rs("gat"), Rs("gae"), Rs("gak"), Rs("ait"), Rs("aie"), Rs("aik"),
						  0, 0, 0,
						  Rs("kdt"), Rs("kde"), Rs("kdk"), Rs("ast"), Rs("ase"), Rs("ask"))
					End If
					Rs.MoveNext()
				Loop
				Document.AddRow("<b><cs=2>GENEL TOPLAM",
				  "<b>" & Rs.Sum("gat", "len(kod)>1"), "<b>" & Rs.Sum("gae", "len(kod)>1"), "<b>" & Rs.Sum("gak", "len(kod)>1"), "<b>" & Rs.Sum("ait", "len(kod)>1"), "<b>" & Rs.Sum("aie", "len(kod)>1"), "<b>" & Rs.Sum("aik", "len(kod)>1"),
				  "<b>" & 0, "<b>" & 0, "<b>" & 0,
				  "<b>" & Rs.Sum("kdt", "len(kod)>1"), "<b>" & Rs.Sum("kde", "len(kod)>1"), "<b>" & Rs.Sum("kdk", "len(kod)>1"), "<b>" & Rs.Sum("ast", "len(kod)>1"), "<b>" & Rs.Sum("ase", "len(kod)>1"), "<b>" & Rs.Sum("ask", "len(kod)>1"))
				Document.Display()
			Case "Tablo 8"
				InitializeReport("KAYITLI AKTİF LİSE MEZUNU İŞSİZLERİN GENEL GÖRÜNÜM TABLOSU/n(Mezun Oldukları Okul ve Cinsiyete Göre)", "8")
				Document.AddTable("1;9l;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n")
				Document.AddHeader("<b><rs=3>Kod", "<b><rs=3>Meslek Grubu", "<b><rs=2><cs=3><c>Geçen ay sonu itibariyle iş bekleyenler", "<b><cs=9><c>Ay içinde", "<b><rs=2><cs=3><c>Ay sonu itibariyle iş bekleyenler")
				Document.AddHeader("<b><cs=3><c>İş İsteğiyle Müracaatlar", "<b><cs=3><c>İşe Yerleştirilenler", "<b><cs=3><c>Kayıttan Düşenler")
				Document.AddHeader("<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K", "<b><c>T", "<b><c>E", "<b><c>K")
				Do Until Rs.EOF
					Document.AddRow("<b>" & Rs("altsira"), "<b>" & Rs("adi"),
					Rs("gat"), Rs("gae"), Rs("gak"), Rs("ait"), Rs("aie"), Rs("aik"),
					0, 0, 0,
					Rs("kdt"), Rs("kde"), Rs("kdk"), Rs("ast"), Rs("ase"), Rs("ask"))
					Rs.MoveNext()
				Loop
				Document.AddRow("<b><cs=2>GENEL TOPLAM",
				  "<b>" & Rs.Sum("gat"), "<b>" & Rs.Sum("gae"), "<b>" & Rs.Sum("gak"), "<b>" & Rs.Sum("ait"), "<b>" & Rs.Sum("aie"), "<b>" & Rs.Sum("aik"),
				  "<b>" & 0, "<b>" & 0, "<b>" & 0,
				  "<b>" & Rs.Sum("kdt"), "<b>" & Rs.Sum("kde"), "<b>" & Rs.Sum("kdk"), "<b>" & Rs.Sum("ast"), "<b>" & Rs.Sum("ase"), "<b>" & Rs.Sum("ask"))
				Document.Display()
			Case "Tablo 14"
				InitializeReport("İŞSİZLİK GENEL GÖRÜNÜM TABLOSU/n(Meslek ve Ekonomik Faaliyet Ana Grupları ve Cinsiyete Göre)", "14")
				Document.AddTable("1;5l;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n;1n")
				Document.AddHeader("<b><rs=2>Kod", "<b><rs=2>Ekonomik Faaliyetler Ana Grupları", "<b><cs=2><c>Toplam",
				 "<b><cs=2><c>Yasa Yap., Üst Düzey Yön. ve Müd.", "<b><cs=2><c>Profesyonel Meslek Mensupları",
				 "<b><cs=2><c>Yardımcı Profesyonel Meslek Mensupları", "<b><cs=2><c>Büro ve Müşteri Hizm. Çal.",
				 "<b><cs=2><c>Hizmet ve Satış Elemanları", "<b><cs=2><c>Tarım, Hay. Orman. ve Su Ürün. Çalışanları",
				 "<b><cs=2><c>Sanatkarlar ve İlgili İşlerde Çalışanlar", "<b><cs=2><c>Tesis ve Makine Opr. ve Montaj.",
				 "<b><cs=2><c>Nitelik Gerektirmeyen İşlerde Çalışanlar", "<b><cs=2><c>Tanımlanamayan")
				Document.AddHeader("<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K", "<b><c>E", "<b><c>K")
				Do Until Rs.EOF
					Document.AddRow("<b>" & Rs("kod"), "<b>" & Rs("adi"), Rs("et"), Rs("kt"),
					Rs("e1"), Rs("k1"), Rs("e2"), Rs("k2"), Rs("e3"), Rs("k3"), Rs("e4"), Rs("k4"),
					Rs("e5"), Rs("k5"), Rs("e6"), Rs("k6"), Rs("e7"), Rs("k7"), Rs("e8"), Rs("k8"),
					Rs("e9"), Rs("k9"), Rs("e0"), Rs("k0"))
					Rs.MoveNext()
				Loop
				Document.AddRow("<b><cs=2>GENEL TOPLAM", "<b>" & Rs.Sum("et"), "<b>" & Rs.Sum("kt"),
				  "<b>" & Rs.Sum("e1"), "<b>" & Rs.Sum("k1"), "<b>" & Rs.Sum("e2"), "<b>" & Rs.Sum("k2"), "<b>" & Rs.Sum("e3"), "<b>" & Rs.Sum("k3"), "<b>" & Rs.Sum("e4"), "<b>" & Rs.Sum("k4"),
				  "<b>" & Rs.Sum("e5"), "<b>" & Rs.Sum("k5"), "<b>" & Rs.Sum("e6"), "<b>" & Rs.Sum("k6"), "<b>" & Rs.Sum("e7"), "<b>" & Rs.Sum("k7"), "<b>" & Rs.Sum("e8"), "<b>" & Rs.Sum("k8"),
				  "<b>" & Rs.Sum("e9"), "<b>" & Rs.Sum("k9"), "<b>" & Rs.Sum("e0"), "<b>" & Rs.Sum("k0"))
				Document.Display()
		End Select
	End Sub

	'Private Sub MnuExit_Click(sender As System.Object, e As System.EventArgs) Handles MnuExit.Click
	'	FindForm.Close()
	'End Sub

	Private Sub MnuAbout_Click(sender As System.Object, e As System.EventArgs) Handles MnuAbout.Click
		Dim Form As New AboutForm
		Form.ShowDialog()
	End Sub

End Class
